Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/ch07_au/cmddemos/bitmanul.dir/00002_UI routines.ls

Text File | 1996-10-23 | 957 b | 35 lines

on radio optArg
  if not optArg then
    set clickName to the name of member the memberNum of sprite the clickOn
  else
    set clickName to optArg
    set the hilite of cast clickName to 1
  end if
  set oldDelim to the itemDelimiter
  set the itemDelimiter to "-"
  if the number of items in clickName = 2 then
    set val to item 1 of clickName
    set family to item 2 of clickName
    radioHilite(clickName, family)
    set the itemDelimiter to oldDelim
    if family = "band" then
      makePref("bandwidth", val)
    end if
  end if
end

on radioHilite hName, family
  repeat with i = 1 to 48
    if the memberNum of sprite i then
      set bName to the name of member the memberNum of sprite i
      if (bName contains family) and not (bName = hName) then
        set the hilite of member bName to 0
      end if
    end if
  end repeat
  if not (the hilite of member hName) then
    set the hilite of member hName to 1
  end if
  updateStage()
end